home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Guide.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  3.0 KB  |  99 lines
  1. global gqtvrinstance, qtvrpath, guidenumber, gbarsprite, gslidersprite, glist, panlist, gcounter, panAngle, tileangle, FOV, ossprite, oslist, sectionmarker, spriteNum, setspeed
  2.  
  3. on setmoviepoint
  4.   set listdata to "ListData" && guidenumber
  5.   set glist to value(field listdata)
  6.   repeat with i = 1 to count(glist)
  7.     add(oslist, getAt(getAt(glist, i), 1))
  8.     add(panlist, getAt(getAt(glist, i), 2))
  9.   end repeat
  10.   sort(oslist)
  11.   sort(panlist)
  12. end
  13.  
  14. on synchronizing
  15.   set currentsoundtime to the movieTime of sprite ossprite
  16.   set value1 to getAt(getAt(glist, gcounter), 1)
  17.   if count(glist) >= (gcounter + 1) then
  18.     set value2 to getAt(getAt(glist, gcounter + 1), 1)
  19.   else
  20.     set value2 to value1
  21.   end if
  22.   if (currentsoundtime >= value1) and (currentsoundtime <= value2) then
  23.     set panAngle to string(getAt(getAt(glist, gcounter), 2))
  24.     set tileangle to string(getAt(getAt(glist, gcounter), 3))
  25.     set FOV to string(getAt(getAt(glist, gcounter), 4))
  26.     if (qtvrgetpanangle(gqtvrinstance) <> panAngle) or (gcounter = 1) then
  27.       swingpanomovie(panAngle, tileangle, FOV, setspeed, "1")
  28.       if setspeed = "4" then
  29.         set setspeed to "1"
  30.       end if
  31.       set newnum to the number of member ("Sign" && guidenumber & "-" & gcounter)
  32.       if newnum > 0 then
  33.         set the memberNum of sprite sectionmarker to newnum
  34.       end if
  35.     end if
  36.     set picnum to getAt(getAt(glist, gcounter), 5)
  37.     if picnum > 0 then
  38.       set spriteNum to 49 + picnum
  39.       set the visible of sprite spriteNum to 1
  40.       qtvrsetvisible(gqtvrinstance, 0)
  41.     else
  42.       set the visible of sprite spriteNum to 0
  43.       qtvrsetvisible(gqtvrinstance, 1)
  44.       qtvrupdate(gqtvrinstance)
  45.     end if
  46.     if value1 <> value2 then
  47.       set gcounter to gcounter + 1
  48.     end if
  49.   end if
  50. end
  51.  
  52. on checkpanpoint
  53.   set newangle to float(qtvrgetpanangle(gqtvrinstance))
  54.   add(panlist, newangle)
  55.   set n to findPos(panlist, newangle) - 1
  56.   if n = 0 then
  57.     set n to 1
  58.   end if
  59.   repeat with i = 1 to count(glist)
  60.     if getAt(getAt(glist, i), 2) = getAt(panlist, n) then
  61.       set gcounter to i
  62.       exit repeat
  63.     end if
  64.   end repeat
  65.   set the movieTime of sprite ossprite to getAt(oslist, gcounter)
  66.   deleteAt(panlist, findPos(panlist, newangle))
  67.   set gcounter to gcounter - 1
  68.   if gcounter = 0 then
  69.     set gcounter to 1
  70.   end if
  71. end
  72.  
  73. on checkospoint
  74.   set newsoundtime to the movieTime of sprite ossprite
  75.   add(oslist, newsoundtime)
  76.   set n to findPos(oslist, newsoundtime) - 1
  77.   set compare1 to getAt(getAt(glist, n), 1)
  78.   if n <> count(glist) then
  79.     set compare2 to getAt(getAt(glist, n + 1), 1)
  80.   else
  81.     set compare2 to 0
  82.   end if
  83.   set gcounter to n
  84.   set the movieTime of sprite ossprite to getAt(getAt(glist, gcounter), 1)
  85.   deleteAt(oslist, findPos(oslist, newsoundtime))
  86.   repeat with i = 1 to count(glist)
  87.     if getAt(getAt(glist, i), 1) = compare1 then
  88.       set gcounter to i
  89.       exit repeat
  90.     end if
  91.   end repeat
  92. end
  93.  
  94. on towhichsection sectionnumber
  95.   set the movieTime of sprite ossprite to getAt(oslist, sectionnumber)
  96.   set gcounter to sectionnumber
  97.   set setspeed to "4"
  98. end
  99.